<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>12</cardCount>
<cardID>4217</cardID>
<listID>7642</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>208</height>
</cardSize>
<script>on openstackhide menubar-- load in the HASH tableglobal HASH,gatherSEEALSOput (the hilite of card button id 6 of card "Gather…") ¬into gatherSEEALSOif HASH is not empty then exit openStackgo card 1put card field "hash" into HASHend openstackfunction hashSection sectionNumglobal HASHset the cursor to busyput char 1 of sectionNum into hlineput char 3 of sectionNum into hitemput zero after hitemif char 4 of sectionNum = "." thenadd char 5 of sectionNum to hitemend ifput item (hitem+1) of line hline of HASH into cardNumput offset("/",sectionNum) into nput char (n+1) to (number of chars in sectionNum) of sectionNum into plusadd (plus-1) to cardNumreturn cardNumend hashSectionon DOhashput empty into card field "hash"repeat with i = 1 to 944set cursor to busygo card i of stack "BRUIT∆SAM Guidelines"put word 1 of bg field "heading3" into zzput number of chars in zz into nif char n of zz = "1" thenif char (n-1) of zz = "/" thenput char 1 of zz into hlineput char 3 of zz into hitemput zero after hitemif char 4 of zz = "." thenadd char 5 of zz to hitemend ifgo card "main" of stack "BRUIT∆SAM"put i into item (hitem+1) of line hline of card field "hash"end ifend ifend repeatend DOhashfunction StripChars theString, container-- strip all tabs, returns, characters, or strings from a containerrepeatset cursor to busyget offset(theString,container)if it = 0 then exit repeatdelete char it to (length(theString) - 1 + it) of containerend repeatreturn containerend StripChars</script>
